home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_util / vbrig / tipdemo1.fr_ / tipdemo1.fr (.txt)
Encoding:
Visual Basic Form  |  1995-04-14  |  2.0 KB  |  70 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2310
  5.    ClientLeft      =   900
  6.    ClientTop       =   1680
  7.    ClientWidth     =   3675
  8.    Height          =   2715
  9.    HelpContextID   =   1000
  10.    Left            =   840
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2310
  13.    ScaleWidth      =   3675
  14.    Top             =   1335
  15.    Width           =   3795
  16.    Begin CheckBox chkTipToggle 
  17.       Caption         =   "Show Tips ?"
  18.       Height          =   255
  19.       HelpContextID   =   1004
  20.       Left            =   120
  21.       TabIndex        =   0
  22.       Tag             =   "This is a really big Check Box with some really long ToolTips"
  23.       Top             =   120
  24.       Width           =   1455
  25.    End
  26.    Begin ListBox List1 
  27.       Height          =   1395
  28.       HelpContextID   =   1002
  29.       Left            =   1740
  30.       TabIndex        =   1
  31.       Top             =   120
  32.       Width           =   1815
  33.    End
  34.    Begin CommandButton Command1 
  35.       Caption         =   "Command1"
  36.       Height          =   975
  37.       HelpContextID   =   1003
  38.       Left            =   120
  39.       TabIndex        =   3
  40.       Tag             =   "This is a Command Button"
  41.       Top             =   1080
  42.       Width           =   1455
  43.    End
  44.    Begin TextBox Text1 
  45.       Height          =   375
  46.       HelpContextID   =   1001
  47.       Left            =   1740
  48.       TabIndex        =   2
  49.       Text            =   "Text1"
  50.       Top             =   1680
  51.       Width           =   1815
  52.    End
  53. Option Explicit
  54. 'See comments in TIPDEMO.BAS
  55. Sub chkTipToggle_Click ()
  56. Select Case chkTipToggle.Value
  57.    Case 0  'Unchecked
  58.       Call dutip_SuspendTips
  59.    Case 1  'Checked
  60.       Call dutip_ResumeTips(0, 0)  'use default intervals
  61.    Case Else
  62. End Select
  63. End Sub
  64. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  65. If UnloadMode <> 1 Then  'via code
  66.    Cancel = True
  67.    Call EndMain
  68. End If
  69. End Sub
  70.